home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / AME / Rexx / nexterror.ame < prev    next >
Encoding:
Text File  |  1994-02-01  |  686 b   |  39 lines
  1. /* $VER: NextError 37.1 (21.2.93) : AME script to find DICE errors */
  2. /* and move to correct source line. */
  3.  
  4. options results
  5.  
  6. buffername = 0
  7. getbuffername
  8. if (RC = 0 ) then do
  9.    parse var RESULT buffername .
  10. end
  11.  
  12. popbuffer "huntbuf"
  13. find ':'
  14.  
  15. if (rc = 0) then do
  16.     'getline'
  17.     parse var result ':' file . ':' line ':'
  18.     movebol
  19.     unsetprefs READ
  20.     delete
  21.     text "*"
  22.     setprefs READ
  23.     movedown
  24. /*
  25.         if (buffername = 0) then prevwindow
  26.         else popbuffer "buffername"
  27. */
  28.     prevwindow
  29.     visit ""file""
  30.     gotoidline line
  31.     end
  32. else do
  33. /*
  34.     if (buffername = 0) then prevwindow
  35.     else popbuffer "buffername"
  36. */
  37.     prevwindow
  38.     eprint "No more errors."
  39. end